<script>on mouseUpglobal namesDB,currentDBLine,howManyPicsbringUpViewerset the itemDelimiter to tabsubtract 1 from currentDBLineif currentDBLine < 1 then put howManyPics into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)set the itemDelimiter to commaend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>384</top>
<right>316</right>
<bottom>406</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31084</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>next pic</name>
<script>on mouseUpglobal namesDB,currentDBLine,howManyPicsbringUpViewerset the itemDelimiter to tabadd 1 to currentDBLineif currentDBLine > howManyPics then put 1 into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)set the itemDelimiter to commaend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>176</left>
<top>384</top>
<right>204</right>
<bottom>406</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>13637</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>play bck</name>
<script>on mouseUpglobal isPlaying,playModeset the enabled of menu "File" to falseset the enabled of menu "Utilities" to falseset the enabled of button "next pic" to falseset the enabled of button "prev pic" to falseset the enabled of button "play fwd" to falseset the enabled of button "stop" to trueset the enabled of menuItem "Next" of menu "View" to falseset the enabled of menuItem "Previous" of menu "View" to falseset the enabled of menuItem "Play Forward" of menu "View" to falseset the enabled of menuItem "Play Backward " of menu "View" to falseset the enabled of menuItem "Stop" of menu "View" to trueset the enabled of menuItem 8 of menu "View" to falseset the enabled of me to falseshow cd button "movie"put true into isPlayingput "bck" into playModeend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>318</left>
<top>384</top>
<right>346</right>
<bottom>406</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5123</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>play fwd</name>
<script>on mouseUpglobal isPlaying,playModeset the enabled of menu "File" to falseset the enabled of menu "Utilities" to falseset the enabled of button "next pic" to falseset the enabled of button "prev pic" to falseset the enabled of button "play bck" to falseset the enabled of button "stop" to trueset the enabled of menuItem "Next" of menu "View" to falseset the enabled of menuItem "Previous" of menu "View" to falseset the enabled of menuItem "Play Forward" of menu "View" to falseset the enabled of menuItem "Play Backward " of menu "View" to falseset the enabled of menuItem "Stop" of menu "View" to trueset the enabled of menuItem 8 of menu "View" to falseset the enabled of me to falseshow cd button "movie"put true into isPlayingput "fwd" into playModeend mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>3</top>
<right>346</right>
<bottom>340</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDoubleClickglobal isPlayingif not isPlaying then openFullSizeend mouseDoubleClick</script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>11</left>
<top>8</top>
<right>105</right>
<bottom>45</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>DB</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>213</left>
<top>365</top>
<right>304</right>
<bottom>381</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>picture number</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>205</left>
<top>344</top>
<right>313</right>
<bottom>361</bottom>
</rect>
<style>popup</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>1</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>display popup</name>
<script>on mouseUpglobal namesDB,currentDBLineset the itemDelimiter to tabput currentDBLine into oldLineput word 2 of (the selectedLine of me) into currentDBLineif currentDBLine <> oldLine thendisplayPic (item 1 of line currentDBLine of namesDB)end ifset the itemDelimiter to commaend mouseUp</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>6</left>
<top>343</top>
<right>169</right>
<bottom>405</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>info</name>
<script>on mouseDoubleClickglobal isPlayingif not isPlaying then findFirstend mouseDoubleClick</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>245</left>
<top>384</top>
<right>274</right>
<bottom>406</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8367</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>stop</name>
<script>on mouseUpglobal isPlayingset the enabled of menu "File" to trueset the enabled of menu "Utilities" to trueset the enabled of button "next pic" to trueset the enabled of button "prev pic" to trueset the enabled of button "play bck" to trueset the enabled of button "play fwd" to trueset the enabled of menuItem "Next" of menu "View" to trueset the enabled of menuItem "Previous" of menu "View" to trueset the enabled of menuItem "Play Forward" of menu "View" to trueset the enabled of menuItem "Play Backward " of menu "View" to trueset the enabled of menuItem "Stop" of menu "View" to falseset the enabled of menuItem 8 of menu "View" to truehide cd button "movie"set the enabled of me to falseput false into isPlayingend mouseUp</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>32</top>
<right>352</right>
<bottom>230</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>infoDB field</name>
<script></script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>318</left>
<top>316</top>
<right>342</right>
<bottom>335</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11003</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>movie</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>9</id>
<text>1 of 100</text>
</content>
<content>
<layer>card</layer>
<id>20</id>
<text>UW_002.TIF Captain DonΓÇÖs Reef; Location: BonaireUW_003.TIF Captain DonΓÇÖs Reef; Location: BonaireUW_004.TIF The Forest; Location: Klein BonaireUW_005.TIF The Forest; Location: Klein BonaireUW_006.TIF The Forest; Location: Klein BonaireUW_007.TIF The Forest; Location: Klein BonaireUW_008.TIF The Forest; Location: Klein BonaireUW_009.TIF Captain DonΓÇÖs Reef; Location: BonaireUW_010.TIF Pietri Pillar; Location: BonaireUW_011.TIF Pietri Pillar; Location: BonaireUW_012.TIF Pietri Pillar; Location: BonaireUW_013.TIF Pietri Pillar; Location: BonaireUW_014.TIF Great Wall East; Location: Little CaymanUW_015.TIF Great Wall East; Location: Little CaymanUW_016.TIF Great Wall East; Location: Little CaymanUW_017.TIF School Bus Reef; Location: Little CaymanUW_018.TIF School Bus Reef; Location: Little CaymanUW_019.TIF 3 Fathom Wall; Location: Little CaymanUW_020.TIF 3 Fathom Wall; Location: Little CaymanUW_021.TIF 3 Fathom Wall; Location: Little CaymanUW_022.TIF 3 Fathom Wall; Location: Little CaymanUW_023.TIF 3 Fathom Wall; Location: Little CaymanUW_024.TIF Buccaneers; Location: Cayman BracUW_025.TIF Buccaneers; Location: Cayman BracUW_026.TIF Buccaneers; Location: Cayman BracUW_027.TIF Southwinds French Reef; Location: BarbadosUW_028.TIF Southwinds French Reef; Location: BarbadosUW_029.TIF Southwinds French Reef; Location: BarbadosUW_030.TIF Southwinds French Reef; Location: BarbadosUW_031.TIF Southwinds French Reef; Location: BarbadosUW_032.TIF Cat Cay; Location: BahamasUW_033.TIF Cat Cay; Location: BahamasUW_034.TIF Cat Cay; Location: BahamasUW_035.TIF Cat Cay; Location: BahamasUW_036.TIF Cat Cay; Location: BahamasUW_037.TIF Cat Cay; Location: BahamasUW_038.TIF Cat Cay; Location: BahamasUW_039.TIF Cat Cay; Location: BahamasUW_040.TIF Cat Cay; Location: BahamasUW_041.TIF Cat Cay; Location: BahamasUW_042.TIF Cat Cay; Location: BahamasUW_043.TIF Cat Cay; Location: BahamasUW_044.TIF Cat Cay; Location: BahamasUW_045.TIF Cat Cay; Location: BahamasUW_046.TIF Southeast Reef; Location: Miami Beach, FLUW_047.TIF Prove/The Pinacle; Location: Turks & CaicosUW_048.TIF Southwest Corner; Location: Klein BonaireUW_049.TIF JerryΓÇÖs Jam; Location: Klein BanaireUW_050.TIF JerryΓÇÖs Jam; Location: Klein BanaireUW_051.TIF JerryΓÇÖs Jam; Location: Klein BanaireUW_052.TIF JerryΓÇÖs Jam; Location: Klein BanaireUW_053.TIF JerryΓÇÖs Jam; Location: Klein BanaireUW_054.TIF Emerald Reef; Location: Miami Beach, FLUW_055.TIF JerryΓÇÖs Jam; Location: Klein BanaireUW_056.TIF Molasses Reef; Location: Key Largo, FLUW_057.TIF Molasses Reef; Location: Key Largo, FLUW_058.TIF Alice in Wonderland; Location: BonaireUW_059.TIF Alice in Wonderland; Location: BonaireUW_060.TIF Alice in Wonderland; Location: BonaireUW_061.TIF Alice in Wonderland; Location: BonaireUW_062.TIF Alice in Wonderland; Location: BonaireUW_063.TIF Alice in Wonderland; Location: BonaireUW_064.TIF Washington Park Reef; Location: BonaireUW_065.TIF Washington Park Reef; Location: BonaireUW_066.TIF Deep Freeze; Location: Key Biscayne, FLUW_067.TIF Mystic Isle; Location: Key Biscayne, FLUW_068.TIF Miss Marlene; Location: Miami Beach, FLUW_069.TIF Patricia; Location: Miami Beach, FLUW_070.TIF Helma Hooker; Location: BonaireUW_071.TIF Helma Hooker; Location: BonaireUW_072.TIF Thunderbolt; Location: Marathon, FLUW_073.TIF Ultrafreeze; Location: Key Biscayne, FLUW_074.TIF Ultrafreeze; Location: Key Biscayne, FLUW_075.TIF Tarpoon; Location: Key Biscayne, FLUW_076.TIF Tarpoon; Location: Key Biscayne, FLUW_077.TIF Tarpoon; Location: Key Biscayne, FLUW_078.TIF Blue Fire; Location: Dade County, FLUW_079.TIF Blue Fire; Location: Dade County, FLUW_080.TIF Miracle Express; Location: Key Biscayne, FLUW_081.TIF Biscayne; Location: Key Biscayne, FLUW_082.TIF Biscayne; Location: Key Biscayne, FLUW_083.TIF Biscayne; Location: Key Biscayne, FLUW_084.TIF Biscayne; Location: Key Biscayne, FLUW_085.TIF Sheri Lyn; Location: Key Biscayne, FLUW_086.TIF Narwal; Location: Dade County, FLUW_087.TIF Almirante; Location: Dade County, FLUW_088.TIF Almirante; Location: Dade County, FLUW_089.TIF Orion; Location: Key Biscayne, FLUW_090.TIF Proteus; Location: Key Biscayne, FLUW_091.TIF Belcher Barge; Location: Key Biscayne, FLUW_092.TIF Rio Miami; Location: Key Biscayne, FLUW_093.TIF Rio Miami; Location: Key Biscayne, FLUW_094.TIF Miracle Express; Location: Key Biscayne, FLUW_095.TIF Belcher Barge; Location: Key Biscayne, FLUW_096.TIF Belzona 1 Tugboat; Location: Key Biscayne, FLUW_097.TIF Biscayne; Location: Key Biscayne, FLUW_098.TIF Biscayne; Location: Key Biscayne, FLUW_099.TIF Biscayne; Location: Key Biscayne, FLUW_100.TIF Biscayne; Location: Key Biscayne, FL</text>
</content>
<content>
<layer>card</layer>
<id>35</id>
<text>UW_001.TIFCaptain DonΓÇÖs Reef; Location: BonaireUW_002.TIFCaptain DonΓÇÖs Reef; Location: BonaireUW_003.TIFCaptain DonΓÇÖs Reef; Location: BonaireUW_004.TIFThe Forest; Location: Klein BonaireUW_005.TIFThe Forest; Location: Klein BonaireUW_006.TIFThe Forest; Location: Klein BonaireUW_007.TIFThe Forest; Location: Klein BonaireUW_008.TIFThe Forest; Location: Klein BonaireUW_009.TIFCaptain DonΓÇÖs Reef; Location: BonaireUW_010.TIFPietri Pillar; Location: BonaireUW_011.TIFPietri Pillar; Location: BonaireUW_012.TIFPietri Pillar; Location: BonaireUW_013.TIFPietri Pillar; Location: BonaireUW_014.TIFGreat Wall East; Location: Little CaymanUW_015.TIFGreat Wall East; Location: Little CaymanUW_016.TIFGreat Wall East; Location: Little CaymanUW_017.TIFSchool Bus Reef; Location: Little CaymanUW_018.TIFSchool Bus Reef; Location: Little CaymanUW_019.TIF3 Fathom Wall; Location: Little CaymanUW_020.TIF3 Fathom Wall; Location: Little CaymanUW_021.TIF3 Fathom Wall; Location: Little CaymanUW_022.TIF3 Fathom Wall; Location: Little CaymanUW_023.TIF3 Fathom Wall; Location: Little CaymanUW_024.TIFBuccaneers; Location: Cayman BracUW_025.TIFBuccaneers; Location: Cayman BracUW_026.TIFBuccaneers; Location: Cayman BracUW_027.TIFSouthwinds French Reef; Location: BarbadosUW_028.TIFSouthwinds French Reef; Location: BarbadosUW_029.TIFSouthwinds French Reef; Location: BarbadosUW_030.TIFSouthwinds French Reef; Location: BarbadosUW_031.TIFSouthwinds French Reef; Location: BarbadosUW_032.TIFCat Cay; Location: BahamasUW_033.TIFCat Cay; Location: BahamasUW_034.TIFCat Cay; Location: BahamasUW_035.TIFCat Cay; Location: BahamasUW_036.TIFCat Cay; Location: BahamasUW_037.TIFCat Cay; Location: BahamasUW_038.TIFCat Cay; Location: BahamasUW_039.TIFCat Cay; Location: BahamasUW_040.TIFCat Cay; Location: BahamasUW_041.TIFCat Cay; Location: BahamasUW_042.TIFCat Cay; Location: BahamasUW_043.TIFCat Cay; Location: BahamasUW_044.TIFCat Cay; Location: BahamasUW_045.TIFCat Cay; Location: BahamasUW_046.TIFSoutheast Reef; Location: Miami Beach, FLUW_047.TIFProve/The Pinacle; Location: Turks & CaicosUW_048.TIFSouthwest Corner; Location: Klein BonaireUW_049.TIFJerryΓÇÖs Jam; Location: Klein BanaireUW_050.TIFJerryΓÇÖs Jam; Location: Klein BanaireUW_051.TIFJerryΓÇÖs Jam; Location: Klein BanaireUW_052.TIFJerryΓÇÖs Jam; Location: Klein BanaireUW_053.TIFJerryΓÇÖs Jam; Location: Klein BanaireUW_054.TIFEmerald Reef; Location: Miami Beach, FLUW_055.TIFJerryΓÇÖs Jam; Location: Klein BanaireUW_056.TIFMolasses Reef; Location: Key Largo, FLUW_057.TIFMolasses Reef; Location: Key Largo, FLUW_058.TIFAlice in Wonderland; Location: BonaireUW_059.TIFAlice in Wonderland; Location: BonaireUW_060.TIFAlice in Wonderland; Location: BonaireUW_061.TIFAlice in Wonderland; Location: BonaireUW_062.TIFAlice in Wonderland; Location: BonaireUW_063.TIFAlice in Wonderland; Location: BonaireUW_064.TIFWashington Park Reef; Location: BonaireUW_065.TIFWashington Park Reef; Location: BonaireUW_066.TIFDeep Freeze; Location: Key Biscayne, FLUW_067.TIFMystic Isle; Location: Key Biscayne, FLUW_068.TIFMiss Marlene; Location: Miami Beach, FLUW_069.TIFPatricia; Location: Miami Beach, FLUW_070.TIFHelma Hooker; Location: BonaireUW_071.TIFHelma Hooker; Location: BonaireUW_072.TIFThunderbolt; Location: Marathon, FLUW_073.TIFUltrafreeze; Location: Key Biscayne, FLUW_074.TIFUltrafreeze; Location: Key Biscayne, FLUW_075.TIFTarpoon; Location: Key Biscayne, FLUW_076.TIFTarpoon; Location: Key Biscayne, FLUW_077.TIFTarpoon; Location: Key Biscayne, FLUW_078.TIFBlue Fire; Location: Dade County, FLUW_079.TIFBlue Fire; Location: Dade County, FLUW_080.TIFMiracle Express; Location: Key Biscayne, FLUW_081.TIFBiscayne; Location: Key Biscayne, FLUW_082.TIFBiscayne; Location: Key Biscayne, FLUW_083.TIFBiscayne; Location: Key Biscayne, FLUW_084.TIFBiscayne; Location: Key Biscayne, FLUW_085.TIFSheri Lyn; Location: Key Biscayne, FLUW_086.TIFNarwal; Location: Dade County, FLUW_087.TIFAlmirante; Location: Dade County, FLUW_088.TIFAlmirante; Location: Dade County, FLUW_089.TIFOrion; Location: Key Biscayne, FLUW_090.TIFProteus; Location: Key Biscayne, FLUW_091.TIFBelcher Barge; Location: Key Biscayne, FLUW_092.TIFRio Miami; Location: Key Biscayne, FLUW_093.TIFRio Miami; Location: Key Biscayne, FLUW_094.TIFMiracle Express; Location: Key Biscayne, FLUW_095.TIFBelcher Barge; Location: Key Biscayne, FLUW_096.TIFBelzona 1 Tugboat; Location: Key Biscayne, FLUW_097.TIFBiscayne; Location: Key Biscayne, FLUW_098.TIFBiscayne; Location: Key Biscayne, FLUW_099.TIFBiscayne; Location: Key Biscayne, FLUW_100.TIFBiscayne; Location: Key Biscayne, FL</text>
<script>on openCardglobal namesDB,currentDBLine,isPlaying,pause,thereIsThumbssend mouseUp to cd button "stop" -- in case it was playing when savedSend colorMe to this cardput 0 into pauseput 1 into currentDBLineset the itemDelimiter to tabput item 1 of line 1 of namesDB into picNamedisplayPic picNameput false into isPlayingput false into thereIsThumbsend openCardon displayPic picNameglobal currentDBLine,namesDB,howManyPics,secondsPaused,transition,isPlayingif isPlaying then set the icon of button "movie" to 11000 else set the cursor to busyput picName&".small" into picNameput 0 into secondsPausedif isPlaying then set the icon of button "movie" to 11001 else set the cursor to busyAddColor "colorPict","cd" ,picName,"13,9","o",transition,30if isPlaying then set the icon of button "movie" to 11002 else set the cursor to busyselect line currentDBLine of cd button "display popup"put currentDBLine && "of" && howManyPics into cd field "picture number"set the itemDelimiter to tabput (item 2 of line currentDBLine of namesDB) into cd field "info"if isPlaying then set the icon of button "movie" to 11003 else set the cursor to busyset the itemDelimiter to commaend displayPicon mouseDownInPicture whatPicture,whereglobal currentDBLine,namesDBwait 20 ticksif mouseClick() thenif whatPicture = "Thumbnails" thenput (item 1 of where) div 81.2 +1 into xNumberput (item 2 of where) div 81.2 into yNumberput xNumber+10*yNumber into picNumberif picNumber < 10 then put "00"&picNumber into picNumberelse if picNumber < 100 then put "0"&picNumber into picNumberput "UW_"&picNumber&".TIF" into picNameput findString(picName,1) into currentDBLinebringUpViewerdisplayPic picNameend ifelseset the cursor to plusput the scroll of window whatPicture into theScrollrepeat while the mouse is downput item 1 of theScroll - mouseH() + clickH() into xput item 2 of theScroll - mouseV() + clickV() into yset the scroll of window whatPicture to "x,y"end repeatend ifend mouseDownInPictureon closePicture whatPictureglobal frontWindow,thereIsThumbsif whatPicture = "Thumbnails" thenset the name of menuItem 10 of menu "View" to "Show Thumbnails Palette"put false into thereIsThumbsexit closePictureend ifbringUpViewerdelete menuItem whatPicture of menu "Window"if number of menuItems of menu "Window" = 4 then -- no open windowsset the enabled of menuItem "Close" of menu "Window" to falseset the enabled of menuItem "Close All" of menu "Window" to falseend ifend closePictureon closeAllWindowsrepeat with x = number of menuItems of menu "Window" down to 5close window (menuItem x of menu "Window")end repeatend closeAllWindowson openFullSizeglobal namesDB,currentDBLine,frontWindowset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into thePicset the itemDelimiter to commaif there is a window thePic thendoMenu (thePic) -- bring it to the frontexit openFullSizeend ifpicture thePic,resource,zoom,false,,falseif the result is not empty thenbeepanswer "Not enough memory for displaying this image at full size. Close another windows first." with "Cancel"exit openFullSizeend ifset the dithering of window thePic to trueset the globalRect of window thePic to deepestshow window thePicput thePic after menu "Window"set the checkmark of menuItem frontWindow of menu "Window" to falseset the checkmark of menuItem thePic of menu "Window" to trueset the enabled of menuItem "Close" of menu "Window" to trueset the enabled of menuItem "Close All" of menu "Window" to trueput thePic into frontWindowend openFullSizeon openOriginalglobal namesDB,currentDBLine,hiResPath,lowResPath,frontWindowif there is not a disk "UWR_I" thenanswer "The Underwater Realms CD has to be mounted in order to edit this image." with "Cancel"exit openOriginalelseanswer file "Choose an application to edit original picture:" of type "APPL"If it is not empty thenput it into theAppanswer "This disk contains high and low resolution pictures. Which one do you want to open?"¬with "Cancel","Low Res","High Res"If it is "Cancel" then exit openOriginalif frontWindow <> "Viewer" thenput frontWindow into picNameelseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into PicNameset the itemDelimiter to commaend ifif it is "Low Res" then put lowResPath&picName&";1" into theFileelse put hiResPath&picName&";1" into theFileopen theFile with theAppend ifend ifend openOriginalon doMenu theItemif theItem is "About HyperCard..." then showCreditselse if theItem is "Next" then send mouseUp to button "next pic"else if theItem is "Previous" then send mouseUp to button "prev pic"else if theItem is "Play Forward" then send mouseUp to button "play fwd"else if theItem is "Play Backward " then send mouseUp to button "play bck"else if theItem is "Pause…" then askPauseelse if theItem is "Stop" then send mouseUp to button "stop"else if theItem is "Full Size" then openFullSizeelse if theItem is "Show Thumbnails Palette" or theItem is "Hide Thumbnails Palette" then doPaletteelse if theItem is "Find First…" then findFirstelse if theItem is "Find Next" then findAgainelse if theItem is "None" then selectTransition theItemelse if theItem is "Slide" then selectTransition theItemelse if theItem is "Dissolve" then selectTransition theItemelse if theItem is "Rectangle" then selectTransition theItemelse if theItem is "Slide Bars" then selectTransition theItemelse if theItem is "Checker Board" then selectTransition theItemelse if theItem is "Barn Door" then selectTransition theItemelse if theItem is "Blinds" then selectTransition theItemelse if theItem is "Quit" then doMenu("Quit HyperCard")else if theItem contains "TIF" then bringUpWindow theItemelse pass doMenuend doMenuon doPaletteglobal thereIsThumbsif there is a window "Thumbnails" thenclose window "Thumbnails"set the name of menuItem 10 of menu "View" to "Show Thumbnails Palette"put false into thereIsThumbselsepicture "Thumbnails", resource,document,false,,trueif the result is not empty thenbeepanswer "Not enough memory for showing Thumbnails Palette. Close another windows first." with "Cancel"exit doPaletteend ifset the dithering of window "Thumbnails" to trueset the rect of window "Thumbnails" to "354,0,534,408"show window "Thumbnails"set the name of menuItem 10 of menu "View" to "Hide Thumbnails Palette"put true into thereIsThumbsend ifend doPaletteon bringUpWindow whatWindowglobal frontWindowset the checkmark of menuItem frontWindow of menu "Window" to falseset the checkmark of menuItem whatWindow of menu "Window" to trueput whatWindow into frontWindowshow window whatWindowset the enabled of menuItem "Close" of menu "Window" to trueend bringUpWindowon bringUpViewerglobal frontWindowset the checkmark of menuItem frontWindow of menu "Window" to falseput "Viewer" into frontWindowset the checkmark of menuItem "Viewer" of menu "Window" to trueset the enabled of menuItem "Close" of menu "Window" to falseshow window (short name of this stack)end bringUpVieweron findFirstglobal namesDB,currentDBLine,theStringbringUpViewerask "Find first occurrence of:"&return&return &"(If found, use ⌘G to Find Next)"&return with theStringIf the result is "Cancel" then exit findFirstput it into theStringput findString(theString,1) into theFoundLineif theFoundLine is empty thenbeepelseif theFoundLine <> currentDBLine thenset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedput theFoundLine into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB),toBeClosedend iffind string theString in cd field "info"if the foundChunk is empty then-- it was found in the file name only, so flash it for feedbackrepeat 2 timeshide cd button "display popup"wait 10 ticksshow cd button "display popup"wait 10 ticksend repeatend ifend ifend findFirstfunction findString theString,fromWhatLineglobal namesDB,howManyPicsput (line fromWhatLine to howManyPics of namesDB) into cd field "infoDB field"find string theString in cd field "infoDB field"return word 2 of the foundLineend findStringon findAgainglobal howManyPics,namesDB,currentDBLine,theStringbringUpViewerif (currentDBLine = howManyPics) thenbeepelseput findString(theString,currentDBLine+1) into theFoundLineif theFoundLine is empty thenbeepelseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedput (theFoundLine+currentDBLine) into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB),toBeClosedfind string theString in cd field "info"if the foundChunk is empty then-- it was found in the file name only, so flash it for feedbackrepeat 2 timeshide cd button "display popup"wait 10 ticksshow cd button "display popup"wait 10 ticksend repeatend ifend ifend ifend findAgainon idleglobal isPlaying,playMode,pause,secondsPaused,frontWindow,thereIsThumbswait until not the suspendedif isPlaying thenif secondsPaused >= pause then -- end of pause, show next pictureshow cd button "movie"if playMode = "fwd" then send mouseUp to cd button "next pic"else send mouseUp to cd button "prev pic"elsewaitASecondadd 1 to secondsPausedend ifelse -- check what window is the frontmostset the checkmark of menuItem frontWindow of menu "Window" to falseif thereIsThumbs thenput line 7 of the windows into frontWindowelseput line 6 of the windows into frontWindowend ifif frontWindow = (short name of this stack) then --is the viewerput "Viewer" into frontWindowset the enabled of menuItem "Close" of menu "Window" to falseelse --is not the viewerset the enabled of menuItem "Close" of menu "Window" to trueend ifset the checkmark of menuItem frontWindow of menu "Window" to trueend ifend idleon arrowKey whatKeyif whatKey is "left" then send mouseUp to cd button "prev pic"else if whatKey is "right" then send mouseUp to cd button "next pic"end arrowKeyon waitASecondset the icon of cd button "movie" to "pause"show cd button "movie"wait 30 tickshide cd button "movie"wait 30 ticksend waitASecondon sortByNameglobal currentDBLine,namesDB,howManyPicsbringUpViewerif the checkmark of menuItem "Sort by File Name" of menu "Utilities" then exit sortByNameset the checkmark of menuItem "Sort by File Name" of menu "Utilities" to trueset the checkmark of menuItem "Sort by Annotation" of menu "Utilities" to falseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsort lines of namesDB by item 1 of eachlock screenrepeat with x = 1 to howManyPicsset the cursor to busyput (item 1 of line x of namesDB) into line x of cd button "display popup"end repeatselect line 1 of cd button "display popup"put 1 into currentDBLineput (item 1 of line 1 of namesDB) into thePicif thePic <> toBeClosed thendisplayPic thePic,toBeClosedend ifset the itemDelimiter to commaunlock screenend sortByNameon sortByAnnotationglobal currentDBLine,namesDB,howManyPicsbringUpViewerif the checkmark of menuItem "Sort by Annotation" of menu "Utilities" then exit sortByAnnotationset the checkmark of menuItem "Sort by File Name" of menu "Utilities" to falseset the checkmark of menuItem "Sort by Annotation" of menu "Utilities" to trueset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsort lines of namesDB by item 2 of eachlock screenrepeat with x = 1 to howManyPicsset the cursor to busyput (item 1 of line x of namesDB) into line x of cd button "display popup"end repeatselect line 1 of cd button "display popup"put 1 into currentDBLineput (item 1 of line 1 of namesDB) into thePicif thePic <> toBeClosed thendisplayPic thePic,toBeClosedend ifset the itemDelimiter to commaunlock screenend sortByAnnotationon selectTransition whichOneglobal transitionrepeat with x=1 to (number of menuItems of menu "Transition")set the checkmark of menuItem x of menu "Transition" to falseend repeatset the checkmark of menuItem whichOne of menu "Transition" to trueif whichOne = "None" then put "stamp" into transitionelse if whichOne = "Slide" then put "fromLeft" into transitionelse if whichOne ="Dissolve" then put "dissolve" into transitionelse if whichOne ="Rectangle" then put "rectOpen" into transitionelse if whichOne ="Slide Bars" then put "combHorizontal" into transitionelse if whichOne = "Checker Board" then put "CheckerBoardOpen" into transitionelse if whichOne = "Barn Door" then put "BarnDoorOpen" into transitionelse if whichOne = "Blinds" then put "VenetianBlindsHorizontal" into transitionend selectTransitionon askPauseglobal pauseask "Type amount of seconds to pause between pictures during play mode:" with pauseIf the result is "Cancel" then exit askPauseput it into theAnswerif theAnswer is not a number or theAnswer <0 or theAnswer > 10000 thenbeepaskPauseexit askPauseelseput theAnswer div 1 into pauseend ifend askPauseon commandKeyDown whatKeyif whatKey <>"P" and whatKey <> "Q" and whatKey <>"K" and whatKey <>"W" and whatKey <>"R" and whatKey <>"F" and whatKey <>"G"thenbeepelsepass commandKeyDownend ifend commandKeyDown</script>
